﻿Public Class ConsultarBonificacion

    Dim codigoUsuario As String

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Public Sub New(ByVal p_codigoUsuario As String)
        InitializeComponent()
        codigoUsuario = p_codigoUsuario
        llenarDatos()
    End Sub

    Public Sub llenarDatos()
        txtGeneral.Text = Logica.Gestor.obtenerBonificacionGeneral(codigoUsuario)
        txtMeta.Text = Logica.Gestor.obtenerBonificacionMeta(codigoUsuario)
    End Sub

    Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Me.Close()
    End Sub

    Private Sub ModificarBonificacion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMeta.Click

    End Sub
End Class